home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d19
/
cal14s6.arc
/
DOSMEM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-12-31
|
861b
|
49 lines
(*
* HeapMem - Heap Memory Management Unit (heap version of DosMem)
*
* (C) 1988 Samuel H. Smith
*
*)
{$r-,s-}
unit DosMem;
interface
uses DOS;
type
wordarray = array[1..2] of word;
wordptr = ^wordarray;
procedure dos_getmem(var ptrvar; size: word);
procedure dos_freemem(var ptrvar);
implementation
procedure dos_getmem(var ptrvar; size: word);
var
msize: wordptr absolute ptrvar;
begin
{writeln('getmem ',size);}
getmem(msize, size+2);
msize^[1] := size+2;
msize := @msize^[2];
end;
procedure dos_freemem(var ptrvar);
var
msize: wordptr absolute ptrvar;
i: integer;
begin
i := 0;
msize := @msize^[i];
{writeln('freemem ',msize^[1]);}
freemem(msize,msize^[1]);
end;
end.